************************************************************
********************* Replication code for *****************
*** Pay Your Debts: Moral Dilemmas of International Debt ***
************* Alessandro Del Ponte & Peter DeScioli ********
********************** Political Behavior ******************
******************* Experiment 1 - MTurk *******************
************************************************************

//Condition 1 -> 6,000 jobs (Full Default)
//Condition 2 -> 10,000 jobs (Full Default)
//Condition 3 -> 25,000 Jobs (Full Default)
//Condition 4 -> 100,000 Jobs (Full Default)
//Condition 5 -> 6,000 Jobs (Partial Default)
//Condition 6 -> 10,000 Jobs (Partial Default)
//Condition 7 -> 25,000 Jobs (Partial Default)
//Condition 8 -> 100,000 Jobs (Partial Default)

*************
* Main Text *
*************

****************
*** Figure 1 ***
****************
sort Condition
by Condition: tab whatDo


***************
*** Table 1 ***
***************
//linear regression
reg whatDo i.ratioCat partial

//logit (footnote)
logit whatDo i.ratioCat partial


****************
*** Figure 2 ***
****************
sort Condition
by Condition: sum StopRepay
by Condition: sum StopWrong
by Condition: sum StopPunish_1 


***************
*** Table 2 ***
***************
//A
**************************************************************
* Would it morally wrong to stop repaying? No (0) or Yes (1)?*
**************************************************************
reg StopRepay i.ratioCat partial

//B
**********************************************
* How morally wrong to stop repaying? (0-10)*
**********************************************
reg StopWrong i.ratioCat partial

//C
*******************************************************
* How strong of a punishment for stop repaying? (0-10)*
*******************************************************
reg StopPunish i.ratioCat partial

****************
*** Figure 3 ***
****************
sort Condition
by Condition: sum Cuts
by Condition: sum CutWrong
by Condition: sum CutPunish_1

***************
*** Table 3 ***
***************
//A
**************************************************************
* would it be morally wrong to make cuts? No (0) or Yes (1)? *
**************************************************************
reg Cuts i.ratioCat partial

//B
*****************************************
* How morally wrong to make cuts? (0-10)*
*****************************************
reg CutWrong i.ratioCat partial

//C
*****************************************************
* How strong of a punishment for making cuts? (0-10)*
*****************************************************
reg CutPunish i.ratioCat partial


****************
*** Figure 4 ***
****************
//see supplemental Comments files


************
* Appendix *
************

***********************************************
*** Table A1 - Demographics of MTurk sample ***
***********************************************
sum age
sum education

tab gender
tab ideology
tab Republican

// % True independents (including leaners)
display 648-172-377
display 71/648
//28 participants declared another party
display 28/648

// % Republicans (including leaners)
display 172/648

// % Democrats (including leaners)
display 377/648


****************
*** Table A2 ***
****************
// Binomial test against 50% (chance)
bitest whatDo == 0.5 if Condition == 1
bitest whatDo == 0.5 if Condition == 2
bitest whatDo == 0.5 if Condition == 3
bitest whatDo == 0.5 if Condition == 4
bitest whatDo == 0.5 if Condition == 5
bitest whatDo == 0.5 if Condition == 6
bitest whatDo == 0.5 if Condition == 7
bitest whatDo == 0.5 if Condition == 8


****************
*** Table A3 ***
****************
reg whatDo i.ratioCat##i.partial


****************
*** Table A4 ***
****************
//interaction condition X consider default morally wrong (dichotomous measure)
logit whatDo StopRepay Cuts if Condition == 1
logit whatDo StopRepay Cuts if Condition == 2
logit whatDo StopRepay Cuts if Condition == 3
logit whatDo StopRepay Cuts if Condition == 4
logit whatDo StopRepay Cuts if Condition == 5
logit whatDo StopRepay Cuts if Condition == 6
logit whatDo StopRepay Cuts if Condition == 7
logit whatDo StopRepay Cuts if Condition == 8
